***********************************************************************************************
******** Supplementary Appendix for "Does Political Diversity Inhibit Blood Donations?" *******
***********************************************************************************************

*******************************************
******** Tables A1-2, A5-7, A11-16 ********
*******************************************

use "KimPelc_Blood_PoP.dta", clear

* Table A1: Summary Statistics, CES data

eststo clear
reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum blood_center_zip log_blood  L1_firearm_death_rate incarcerated_rate i.state i.year, cluster(state)  
estpost summarize donate_blood dist_st_ideo5_3 dist_cz_ideo5_3 ideo5_3 st_mean_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood  L1_firearm_death_rate incarcerated_rate if e(sample)
esttab using "TableA1.tex", cells("mean(fmt(2)) sd min max") nomtitle nonumber noobs label replace

* Table A2: Correlation Table, CES Data

eststo clear
reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum blood_center_zip log_blood  L1_firearm_death_rate incarcerated_rate i.state i.year, cluster(state)  
estpost correlate donate_blood dist_st_ideo5_3 dist_cz_ideo5_3 ideo5_3 st_mean_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood  L1_firearm_death_rate incarcerated_rate if e(sample), matrix listwise
esttab using "TableA2.tex", unstack not noobs compress  label nomtitle nonumber replace b(2) 

* Table A5: Probit Models: Social Diversity and Blood Donation

eststo clear

eststo: probit donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state , cluster(state)  
eststo: probit donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state , cluster(state)  

eststo: probit donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year, cluster(state)  
eststo: probit donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year, cluster(state)  

eststo: probit donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state , cluster(czone)  
eststo: probit donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state , cluster(czone)  

eststo: probit donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year, cluster(czone)  
eststo: probit donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year, cluster(czone)  

esttab using "TableA5.tex", label keep(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate ) order(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate ) nonotes se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) compress nogaps nodepvars indicate("State FE = *state*" "Year FE = *year*") 

* Table A6: Probit Models: Social Diversity and Blood Donation, By Age

eststo clear

* Age < 40
eststo: probit donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year if age < 40, cluster(state)  
eststo: probit donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year if age < 40, cluster(state)  

eststo: probit donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year if age < 40, cluster(czone)  
eststo: probit donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year if age < 40, cluster(czone)  
	
* Age >= 40
eststo: probit donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year if age >= 40, cluster(state)  
eststo: probit donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year if age >= 40, cluster(state)  

eststo: probit donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year if age >= 40, cluster(czone)  
eststo: probit donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year if age >= 40, cluster(czone)  
	
esttab using "TableA6.tex", label keep(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate ) order(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate ) nonotes se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) compress nogaps nodepvars indicate("State FE = *state*" "Year FE = *year*") 

* Table A7: Interaction Effects of Social Diversity and Age: CES Survey

gen dist_st_ideo5_3_age = dist_st_ideo5_3*age
label var dist_st_ideo5_3_age "Ideological distance*Age"

gen dist_cz_ideo5_3_age = dist_cz_ideo5_3*age
label var dist_cz_ideo5_3_age "Ideological distance*Age"

eststo clear

eststo: reg donate_blood dist_st_ideo5_3 dist_st_ideo5_3_age st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year, cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 dist_st_ideo5_3_age st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year, cluster(state)  

eststo: reg donate_blood dist_cz_ideo5_3 dist_cz_ideo5_3_age cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year , cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 dist_cz_ideo5_3_age ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate  i.state i.year, cluster(czone)  
	
esttab using "TableA7.tex", label keep(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate ) order(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate ) nonotes se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) compress nogaps nodepvars indicate("State FE = *state*" "Year FE = *year*") 

* Table A11: Social Diversity and Blood Donation: 2020 Only

eststo clear

eststo: reg donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state if year == 2020, cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state if year == 2020, cluster(state)  

eststo: reg donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year if year == 2020, cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year if year == 2020, cluster(state)  

eststo: reg donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state if year == 2020, cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state if year == 2020, cluster(czone)  

eststo: reg donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year if year == 2020 , cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year if year == 2020, cluster(czone)  

esttab using "TableA11.tex", label keep(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate) order(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate) nonotes se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) compress nogaps nodepvars indicate("State FE = *state*" "Year FE = *year*") 

* Table A12: Social Diversity and Blood Donation, By Age: 2020 Only
	
eststo clear

* Age < 40
eststo: reg donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year if age < 40 & year == 2020, cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year if age < 40 & year == 2020, cluster(state)  

eststo: reg donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year if age < 40 & year == 2020, cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year if age < 40 & year == 2020, cluster(czone)  
	
* Age >= 40
eststo: reg donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year if age >= 40 & year == 2020, cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year if age >= 40 & year == 2020, cluster(state)  

eststo: reg donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year if age >= 40 & year == 2020, cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year if age >= 40 & year == 2020, cluster(czone)  
	
esttab using "TableA12.tex", label keep(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate) order(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate) nonotes se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) compress nogaps nodepvars indicate("State FE = *state*" "Year FE = *year*") 

* Table A13: Social Diversity and Blood Donation: Controlling for 2020

gen year2020 = 0 
replace year2020 = 1 if year == 2020
label var year2020 "Year of 2020"

eststo clear

eststo: reg donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020, cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020, cluster(state)  

eststo: reg donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020, cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state  year2020, cluster(state)  

eststo: reg donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020, cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020, cluster(czone)  

eststo: reg donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020 , cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020, cluster(czone)  

esttab using "TableA13.tex", label keep(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate year2020) order(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate year2020) nonotes se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) compress nogaps nodepvars indicate("State FE = *state*") 

* Table A14: Social Diversity and Blood Donation: Controlling for 2020
	
eststo clear

* Age < 40
eststo: reg donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020 if age < 40 , cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020 if age < 40 , cluster(state)  

eststo: reg donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020 if age < 40 , cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020 if age < 40, cluster(czone)  
	
* Age >= 40
eststo: reg donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020 if age >= 40 , cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020 if age >= 40 , cluster(state)  

eststo: reg donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020 if age >= 40 , cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state year2020 if age >= 40 , cluster(czone)  
	
esttab using "TableA14.tex", label keep(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate year2020) order(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate year2020) nonotes se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) compress nogaps nodepvars indicate("State FE = *state*") 

* Table A15: Social Diversity and Blood Donation: Emergency Room Visit

eststo clear

eststo: reg donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room, cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room, cluster(state)  

eststo: reg donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year i.year emergency_room, cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state  i.year emergency_room, cluster(state)  

eststo: reg donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room, cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room, cluster(czone)  

eststo: reg donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room , cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room, cluster(czone)  

esttab using "TableA15.tex", label keep(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate emergency_room) order(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate emergency_room) nonotes se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) compress nogaps nodepvars indicate("State FE = *state*") 

* Table A16: Social Diversity and Blood Donation: Controlling for Emergency Room Visit
	
eststo clear

* Age < 40
eststo: reg donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room if age < 40 , cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room if age < 40 , cluster(state)  

eststo: reg donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room if age < 40 , cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room if age < 40, cluster(czone)  
	
* Age >= 40
eststo: reg donate_blood dist_st_ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room if age >= 40 , cluster(state)  
eststo: reg donate_blood dist_st_ideo5_3 ideo5_3 st_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room if age >= 40 , cluster(state)  

eststo: reg donate_blood dist_cz_ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room if age >= 40 , cluster(czone)  
eststo: reg donate_blood dist_cz_ideo5_3 ideo5_3 cz_mean_ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k white black race_hispanic asian nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate i.state i.year emergency_room if age >= 40 , cluster(czone)  
	
esttab using "TableA16.tex", label keep(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate emergency_room) order(dist_st_ideo5_3 st_mean_ideo5_3 dist_cz_ideo5_3 cz_mean_ideo5_3 ideo5_3 fb_share age female college hs citizen_dum income_100k income_50k nohealthinsurance_dum log_blood L1_firearm_death_rate incarcerated_rate emergency_room) nonotes se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) compress nogaps nodepvars indicate("State FE = *state*") 

****************************************
********  Tables A3, A4, and A8 ******** 
****************************************

use "KimPelc_Blood_Respondi_PoP.dta", clear

* Table A3: Summary Statistics, Original Survey

eststo clear
areg blood political_minority race_minority ideology college hs female age income_100k income_50k citizen_us white black asian hispanic log_center firearm_death_rate incarcerated_rate, cluster(state) abs(state)
estpost summarize blood political_minority race_minority ideology college hs female age income_100k income_50k citizen_us white black asian hispanic log_center firearm_death_rate incarcerated_rate if e(sample)
esttab using "TableA3.tex", cells("mean(fmt(2)) sd min max") nomtitle nonumber noobs label replace

* Table A4: Correlation Table, Original Survey
eststo clear
areg blood political_minority race_minority ideology college hs female age income_100k income_50k citizen_us white black asian hispanic log_center firearm_death_rate incarcerated_rate, cluster(state) abs(state)
estpost correlate blood political_minority race_minority ideology college hs female age income_100k income_50k citizen_us white black asian hispanic log_center firearm_death_rate incarcerated_rate if e(sample), matrix listwise
esttab using "TableA4.tex", unstack not noobs compress  label nomtitle nonumber replace b(2) 

* Table A8: Interaction Effects of Social Diversity and Age: Respondi Survey

gen age_pol = age*political_minority
label var age_pol "Self-perception as political minority*Age"

gen age_race = age*race_minority
label var age_race "Self-perception as racial minority*Age"

eststo clear 
eststo: reg blood political_minority age age_pol  log_center firearm_death_rate incarcerated_rate , cluster(state)
eststo: reg blood race_minority age  age_race log_center firearm_death_rate incarcerated_rate , cluster(state)
eststo: reg blood political_minority race_minority age age_pol age_race log_center firearm_death_rate incarcerated_rate , cluster(state)
eststo: reg blood political_minority race_minority age age_pol age_race ideology college hs female  citizen_us white black asian hispanic log_center firearm_death_rate incarcerated_rate , cluster(state)
eststo: reg blood political_minority race_minority age age_pol age_race ideology college hs female  income_100k income_50k citizen_us white black asian hispanic log_center firearm_death_rate incarcerated_rate , cluster(state)
eststo: xi:reg blood political_minority race_minority age age_pol age_race ideology college hs female income_100k income_50k citizen_us white black asian hispanic log_center firearm_death_rate incarcerated_rate i.state, cluster(state)

esttab using "TableA8.tex", label keep(political_minority race_minority age age_pol age_race ideology college hs female age income_100k income_50k citizen_us white black asian hispanic log_center firearm_death_rate incarcerated_rate ) order(political_minority race_minority age age_pol age_race  ideology college hs female income_100k income_50k citizen_us white black asian hispanic log_center firearm_death_rate incarcerated_rate )  nonotes se(3) b(3) replace  star(+ 0.10 * 0.05 ** 0.01)  compress nogaps nodepvar // addnotes("Standard errors in parentheses." 

***********************************
********  Table A9 and A10 ******** 
***********************************

* Table A9: Donation Centers (County)

use "blood_centers_cty.dta", replace

eststo clear

eststo: regress log_center trump_share log_population female_share black_share asian_share hispanic_share, cluster(state)
eststo: xi: regress log_center trump_share log_population female_share black_share asian_share hispanic_share i.state, cluster(state)

esttab using "TableA9.tex", label keep(log_population trump_share female_share black_share asian_share hispanic_share acs_median_age ) ///
	order(log_population trump_share female_share black_share asian_share hispanic_share acs_median_age ) ///
	nonotes se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) compress nogaps nodepvars indicate("State FE = *state*") 

* Table A10: Donation Centers (State)
	
use "blood_centers_st.dta", replace

eststo clear
eststo: regress log_blood_center_n_st trump_share_st log_population_st acs_female_share_st acs_black_share_st acs_asian_share_st acs_hispanic_share_st 
eststo: regress log_blood_center_n_st st_var_ideo5_3 st_mean_ideo5_3 log_population_st acs_female_share_st acs_black_share_st acs_asian_share_st acs_hispanic_share_st 

esttab using "TableA10.tex", label keep(st_var_ideo5_3 st_mean_ideo5_3 trump_share_st log_population_st acs_female_share_st acs_black_share_st acs_asian_share_st acs_hispanic_share_st) ///
	order(trump_share_st st_var_ideo5_3 st_mean_ideo5_3  log_population_st acs_female_share_st acs_black_share_st acs_asian_share_st acs_hispanic_share_st ) ///
	nonotes se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) compress nogaps nodepvars 

